home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 110 / 110.d81 / mc tiles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  66 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 sys57812"tiles.font",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  3. 15 print"[147][151]";:poke53272,31:poke650,128
  4. 20 poke53270,peek(53270)or16
  5. 22 gosub10010
  6. 25 poke53280,c1:poke53281,c2:poke53282,c4:poke53283,c5
  7. 30 fori=.to23:print"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@":next
  8. 40 print"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@"
  9. 50 printtab(5)"[193][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][195]"
  10. 60 fori=.to14:printtab(5)"[196]                            [197]":next
  11. 70 printtab(5)"[198][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][200]"
  12. 80 gosub1010:poke198,0
  13. 100 rem --- main ---
  14. 110 geta$:ifa$=""then110
  15. 120 ifa$<"1"ora$>"7"then110
  16. 130 ifa$="7"then200
  17. 140 onval(a$)gosub910,920,930,940,950,960
  18. 150 gosub1010:goto110
  19. 200 poke214,17:print:poke646,1+(c2=1)
  20. 210 printtab(8)"want to quit? (y) or (n)"
  21. 220 geta$:ifa$<>"y"anda$<>"n"then220
  22. 230 ifa$="n"thenprinttab(8)"[145]    press a key [1-7]   ":goto110
  23. 300 rem --- back to the tower ---
  24. 320 poke53270,peek(53270)and239:poke53272,21
  25. 330 goto40000
  26. 900 rem --- subroutines ---
  27. 910 c1=c1+1and15:poke53280,c1:return
  28. 920 c2=c2+1and15:poke53281,c2:return
  29. 930 c3=c3+1and7:poke646,c3+8:poke648,200:print"[147]":poke648,4:return
  30. 940 c4=c4+1and15:poke53282,c4:return
  31. 950 c5=c5+1and15:poke53283,c5:return
  32. 960 fori=.to7:poke14336+i,rnd(1)*256:next:return
  33. 1000 rem --- info ---
  34. 1010 poke214,5:print
  35. 1020 poke646,1+(c2=1)
  36. 1030 printtab(12)"multicolor tiles"
  37. 1040 printtab(8)"[1] border      : "c$(c1)
  38. 1050 printtab(8)"[2] background  : "c$(c2)
  39. 1060 printtab(8)"[3] foreground  : "c$(c3)
  40. 1070 printtab(8)"[4] multicolor1 : "c$(c4)
  41. 1080 printtab(8)"[5] multicolor2 : "c$(c5)
  42. 1090 printtab(20)"[176][192][174] [176][192][174]"
  43. 1100 printtab(8)"[6] pattern [221]";
  44. 1101 poke646,c3+8:print"@";:poke646,1+(c2=1):print"[221] [221]";
  45. 1102 poke646,c3:print"@";:poke646,1+(c2=1):print"[221]"
  46. 1110 printtab(20)"[173][192][189] [173][192][189]"
  47. 1120 printtab(8)"[7] quit"
  48. 1130 printtab(12)"press a key [1-7]"
  49. 1140 return
  50. 10000 open15,8,15,"s0:mc tiles":close15:save"mc tiles",8:end
  51. 10010 c1=6:c2=0:c3=3:c4=6:c5=14:x=rnd(-ti)
  52. 10020 dimc$(15):fori=.to15:readc$(i):next
  53. 10100 return
  54. 20000 rem --- colors ---
  55. 20010 data"black  ","white  ","red    "
  56. 20020 data"cyan   ","purple ","green  "
  57. 20030 data"blue   ","yellow ","orange "
  58. 20040 data"brown  ","pink   ","d.grey "
  59. 20050 data"m.grey ","l.green","l.blue "
  60. 20060 data"l.grey "
  61. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  62. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  63. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  64. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  65. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  66.